home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk89 / typetut / rancond.bas < prev    next >
BASIC Source File  |  1995-03-19  |  1KB  |  47 lines
  1. 5 PRINT "NOW RUN THE VAROUS PROGRAMS"
  2. 7 STOP
  3. 10 OPEN "I",#1,"DRILLS"
  4. 20 OPEN "R",#2,"DRILRAN",80:FIELD #2,80 AS R$
  5. 25 OPEN "O",#3,"DRIST"
  6. 30 COUNT=0:START=1:LES=0
  7. 40 IF EOF(1) THEN 100
  8. 50 LINE INPUT #1,A$
  9. 60 COUNT=COUNT+1
  10. 70 IF LEFT$(A$,4)<>"$$$$" THEN GOSUB 150:GOTO 40
  11. 71 REM NEW LESSON
  12. 72 LES=VAL(RIGHT$(A$,7))
  13. 76 PRINT #3,LES,COUNT
  14. 78 PRINT "LESSON ";LES,COUNT
  15. 80 GOSUB 150
  16. 82 GOTO 40
  17. 100 REM ALL LINES IN
  18. 120 RESET:END
  19. 150 GOSUB 200   'TRIM LINE
  20. 152 B$=B$+">"   'PUT IN TRAILING THINGY
  21. 154 LSET R$=B$
  22. 156 PUT #2,COUNT
  23. 158 RETURN
  24. 200 REM TRIM LINE
  25. 210 A=LEN(A$)
  26. 220 FOR X=A TO 1 STEP -1
  27. 230 IF MID$(A$,X,1)<>" " THEN 250
  28. 240 NEXT X
  29. 250 B$=LEFT$(A$,X)
  30. 260 RETURN
  31. 300 REM PRINT OUT CONTENTS OF RANDOM FILE
  32. 310 OPEN "R",#2,"DRILRAN",80:FIELD #2,80 AS R$
  33. 315 INPUT "Start at what number";START
  34. 320 FOR X=START TO 1000
  35. 330 GET #2,X
  36. 340 LPRINT X,R$
  37. 342 IF R$<" " THEN END
  38. 350 NEXT X
  39. 360 END
  40. 400 REM PRINT OUT CONTENTS OF LESSON START FILE
  41. 410 OPEN "I",#3,"DRIST":COUNT=0
  42. 420 IF EOF(3) THEN 460
  43. 430 INPUT #3,LES,START:COUNT=COUNT+1
  44. 440 LPRINT "C=";COUNT,"L=";LES,"S=";START
  45. 450 GOTO 420
  46. 460 END
  47.